<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>3633</cardID>
<listID>2125</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>on cHCinstall-- Check for correct environmentset cursor to busy--if checkEnviron() is not "OK" thengo HomegetHomeInfoexit to HyperCardend ifset cursor to busy--repeat until the lockScreen is falseunlock screenend repeat--end cHCinstallfunction checkEnviron-- The heapspace requirements may vary depending on your stackput MaxDepth() into TheDepthif TheDepth < 4 then errBitDepthif (TheDepth = 1) ¬and (the heapSpace < 2600) then errMemory TheDepth,"1100K"else if (TheDepth = 2) ¬and (the heapSpace < 117200) then errMemory TheDepth,"1200K"else if (TheDepth = 4) ¬and (the heapSpace < 205000) then errMemory TheDepth,"1250K"else if (TheDepth = 8) ¬and (the heapSpace < 384000) then errMemory TheDepth,"1300K"else if (TheDepth = 16) ¬and (the heapSpace < 721000) then errMemory TheDepth,"2400K"else if (TheDepth ≥ 24) ¬and (the heapSpace < 1421000) then errMemory TheDepth,"3000K"else if stackActivate() is not empty thenerrColorreturn "OK"else return "OK"end checkEnvironon errMemory TheDepth,PartitionSize-- The PartitionSize required may vary depending on your stackput lastItem(":",the long name of HyperCard) into TheHyperCardanswer "Not enough memory to run" && "“" & short name of this stack & "”" ¬&& "in" && TheDepth & "bit mode. The current memory size of" && ¬TheHyperCard && "should be at least" && PartitionSize & "."end errMemoryfunction lastItem TheDelimiter,String-- given the delimiter <TheDelimiter>, return the portion of <String> that-- follows the LAST occurance of <TheDelimiter>if TheDelimiter is in Stringthen put lastItem(TheDelimiter,char offset(TheDelimiter,String) + 1 to length(String) of String) into Stringreturn Stringend lastItemon errBitDepthanswer "This stack requires a color system set to at least 16 colors" && ¬"(4 bit-depth) to display color." --∆end errBitDepthon colorizeHCglobal gOKToColorizeif (gOKToColorize is empty) then pass colorizeHCend colorizeHCfunction stackActivateglobal gOKToColorize--put empty into gOKToColorize--colorizeHC "assignToFront"if the result is not empty thenput the result into gOKToColorizereturn gOKToColorizeend ifend stackActivateon errColorglobal gOKToColorizeanswer "Warning: The environment this stack is currently running in is not" && ¬"able to support color." & return & "Reason:" && gOKToColorizeend errColoron cHCdispose-- closing the stack, get rid of the Colorize stufflock screenColorizeHC "Dispose"if the result is not empty then answer the resultunlock screen -- force a screen updateend cHCdisposefunction wrongStackput the value of word 2 of the long name of me into TheStackNamereturn (TheStackName is not line 1 of the stacks)end wrongStackon openStackif wrongStack() then pass openStackcHCinstallpass openStackend openStackon closeStackif wrongStack() then pass closeStackcHCdisposepass closeStackend closeStackon resumeif wrongStack() then pass resumecHCinstallpass resumeend resumeon suspendif wrongStack() then pass suspendcHCdisposepass suspendend suspendon resumeStackif wrongStack() then pass resumeStackcHCinstallpass resumeStackend resumeStackon suspendStackif wrongStack() then pass suspendStackcHCdisposepass suspendStackend suspendStack</script>
